home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
os2
/
mtic132o.zip
/
INFOS.RAR
/
INFOS
/
MTS_RA.200
< prev
next >
Wrap
Text File
|
1996-06-20
|
11KB
|
357 lines
(*
This document is (C) Copyright Andrew Milner & Wantree Development, 1993.
All rights reserved.
Modified for
▓███▀█▀█ ▓███▀█ ▓███▀▀ ▓███▀█ ▀▀████▀▀ ▀▀▀ ▓███▀█
▒███ █ ▒███▄ ▒███ ▀█ ▒███▄█ ███░ ███░ ▒███
████ █ ████▄▄ ████▄▄█ ████ █ ███▒ ███▒ ████▄█
▀
and RemtoteAccess 2.50 by DiMeS 1996.
*)
TYPE
AskType = (Yes, No, Ask, Only);
VideoType = (Auto, Short, Long);
MsgType = (LocalMail, NetMail, EchoMail);
MsgKindsType = (Both, Private, Public, ROnly, NoReply);
OrphanType = (Ignore, Create, Kill);
FlagType = array[1..4] of Byte;
Time = String[5];
Date = String[8];
LongDate = String[9];
ByteArray32 = Array[1..32] of Byte;
COMBINEDrecord = array[1..200] of Word;
NetAddress = Record
Zone,
Net,
Node,
Point : Word;
End;
ARCrecord = record
Extension : String[3];
UnpackCmd,
PackCmd : String[60];
end;
FILESHDRrecord = record
Name : String[12];
Size,
CRC32 : LongInt;
Uploader : String[35];
UploadDate,
FileDate,
LastDL : LongInt;
TimesDL : Word;
Attrib : Byte;
Password : String[15];
KeyWord : Array[1..5] of String[15];
Cost : Word;
LongDescPtr : LongInt;
FreeSpace : Array[1..20] of Byte;
end;
{Attrib - Bit 0 : Deleted
1 : Unlisted
2 : Free (don't adjust ratio) - Does NOT affect "Cost"
3 : Not available (don't allow downloads)
4 : Locked (no kill)
5 : Missing/offline
6 : No time restrictions - always allow DL
}
FILESIDXrecord = record
Name : String[12];
UploadDate : LongInt;
KeyWordCRC : Array[1..5] of LongInt;
LongDescPtr : LongInt;
end;
FILESRDXrecord = record
FILESidx : Word;
end;
FILESrecord = record
AreaNum,
Unused : Word;
Name : String[40];
Attrib : Byte;
{ Bit 0 : Include in new files scan
1 : Include in upload dupe scan
2 : Permit long descriptions
3 : Area is on CD-ROM
4 : All files are FREE
5 : Allow DLs not in FDB
6 : Allow users to password uploads
7 : Scan uploads }
FilePath : String[40];
KillDaysDL,
KillDaysFD : Word;
Password : String[15];
MoveArea : Word;
Age,
ConvertExt : Byte;
Group : Word;
Attrib2 : Byte;
{ Bit 0 : Include in all groups }
DefCost,
UploadArea,
UploadSecurity : Word;
UploadFlags,
UploadNotFlags : FlagType;
Security : Word;
Flags,
NotFlags : FlagType;
ListSecurity : Word;
ListFlags,
ListNotFlags : FlagType;
AltGroup : Array[1..3] of Word;
Device : Byte;
FreeSpace : Array[1..13] of Byte;
end;
FFILESrecord = File of FILESrecord;
CONFIGrecord = record
VersionID : Word;
xCommPort : Byte;
xBaud : LongInt;
xInitTries : Byte;
xInitStr,
xBusyStr : String[70];
xInitResp,
xBusyResp,
xConnect300,
xConnect1200,
xConnect2400,
xConnect4800,
xConnect9600,
xConnect19k,
xConnect38k : String[40];
xAnswerPhone : Boolean;
xRing,
xAnswerStr : String[20];
xFlushBuffer : Boolean;
xModemDelay : Integer;
MinimumBaud,
GraphicsBaud,
TransferBaud : word;
SlowBaudTimeStart,
SlowBaudTimeEnd,
DownloadTimeStart,
DownloadTimeEnd : Time;
PageStart : Array[0..6] of Time;
PageEnd : Array[0..6] of Time;
SeriNum,
CustNum : String[22];
{} FreeSpace1 : Array[1..24] of Byte;
PwdExpiry : Word;
MenuPath,
TextPath,
AttachPath,
NodelistPath,
MsgBasePath,
SysPath,
ExternalEdCmd : String[60];
Address : Array[0..9] of NetAddress;
SystemName : String[30];
NewSecurity : Word;
NewCredit : Word;
NewFlags : FlagType;
OriginLine : String[60];
QuoteString : String[15];
Sysop : String[35];
LogFileName : String[60];
FastLogon,
AllowSysRem,
MonoMode,
StrictPwdChecking,
DirectWrite,
SnowCheck : Boolean;
CreditFactor : Integer;
UserTimeOut,
LogonTime,
PasswordTries,
MaxPage,
PageLength : Word;
CheckForMultiLogon,
ExcludeSysopFromList,
OneWordNames : Boolean;
CheckMail : AskType;
AskVoicePhone,
AskDataPhone,
DoFullMailCheck,
AllowFileShells,
FixUploadDates,
FreezeChat : Boolean;
ANSI, { ANSI: Yes, no, or ask new users }
ClearScreen, { Clear: " }
MorePrompt : AskType; { More: " }
UploadMsgs : Boolean;
KillSent : AskType; { Kill/Sent " }
CrashAskSec : Word; { Min sec# to ask 'Crash Mail ?' }
CrashAskFlags : FlagType;
CrashSec : Word; { Min sec# to always send crash mail. }
CrashFlags : FlagType;
FAttachSec : Word; { " ask 'File Attach ?' }
FAttachFlags : FlagType;
NormFore,
NormBack,
StatFore,
StatBack,
HiBack,
HiFore,
WindFore,
WindBack,
ExitLocal,
Exit300,
Exit1200,
Exit2400,
Exit4800,
Exit9600,
Exit19k,
Exit38k : Byte;
MultiLine : Boolean;
MinPwdLen : Byte;
MinUpSpace : Word;
HotKeys : AskType;
BorderFore,
BorderBack,
BarFore,
BarBack,
LogStyle,
MultiTasker,
PwdBoard : Byte;
xBufferSize : Word;
FKeys : Array[1..10] of String[60];
WhyPage : Boolean;
LeaveMsg : Byte;
ShowMissingFiles,
xLockModem : Boolean;
{} FreeSpace2 : Array[1..10] of Byte;
AllowNetmailReplies : Boolean;
LogonPrompt : String[40];
CheckNewFiles : AskType;
ReplyHeader : String[60];
BlankSecs : byte;
ProtocolAttrib : Array[1..6] of Byte;
xErrorFreeString : String[15];
xDefaultCombined : array[1..25] of Byte;
RenumThreshold : Word;
LeftBracket,
RightBracket : Char;
AskForHandle : Boolean;
AskForBirthDate : Boolean;
GroupMailSec : Word;
ConfirmMsgDeletes : Boolean;
FreeSpace4 : Array[1..30] of byte;
TempScanDir : String[60];
ScanNow : AskType;
xUnknownArcAction,
xFailedUnpackAction,
FailedScanAction : Byte; {Bit 0:Mark deleted, 1:Mark unlisted, 2:Mark notavail}
xUnknownArcArea,
xFailedUnpackArea,
FailedScanArea : Word;
ScanCmd : String[60];
xDeductIfUnknown : Boolean;
NewUserGroup : Byte;
AVATAR : AskType;
BadPwdArea : Byte;
Location : String[40];
DoAfterAction : Byte; {0 = wait for CR, > 0 = wait for x seconds}
{} OldFileLine : String[40];
CRfore,
CRback : Byte;
LangHdr : String[40];
xSendBreak : Boolean;
{} ListPath : String[60];
FullMsgView : AskType;
EMSI_Enable : AskType;
EMSI_NewUser : Boolean;
EchoChar : String[1];
xConnect7200,
xConnect12000,
xConnect14400 : String[40];
Exit7200,
Exit12000,
Exit14400 : Byte;
ChatCommand : String[60];
ExtEd : AskType;
NewuserLanguage : Byte;
LanguagePrompt : String[40];
VideoMode : VideoType;
AutoDetectANSI : Boolean;
xOffHook : Boolean;
NewUserDateFormat : Byte;
KeyboardPwd : String[15];
CapLocation : Boolean;
NewuserSub : Byte;
PrinterName : String[4];
HilitePromptFore,
HiLitePromptBack : Byte;
xInitStr2 : String[70];
AltJSwap : Boolean;
SemPath : String[60];
AutoChatCapture : Boolean;
FileBasePath : String[60];
NewFileTag : Boolean;
IgnoreDupeExt : Boolean;
TempCDFilePath : String[60];
TagFore,
TagBack : Byte;
xConnect16k : String[40];
Exit16k,
FilePayback : Byte;
FileLine,
FileMissingLine : String[200];
NewUserULCredit : Byte;
NewUserULCreditK : Word;
ArcInfo : Array[1..10] of ARCrecord;
RAMGRAltFKeys : Array[1..5] of String[60];
ArcViewCmd : String[60];
xConnectFax : String[40];
ExitFax : Byte;
UseXMS,
UseEMS : Boolean;
CheckDOB : Byte;
EchoCheck : AskType;
ccSec,
ReturnRecSec : Word;
HonourNetReq : Boolean;
DefaultCombined : COMBINEDrecord;
AskForSex,
AskForAddress : Boolean;
DLdesc : AskType;
NewPhoneScan : Boolean;
FutureExpansion : Array[1..587] of Byte;
end;
(* End of "STRUCT.200" *)